www.gusucode.com > 红色大方的企业网站源码 1 > 红色大方的企业网站源码 1.0/qiye_red/VideoClass.asp
<!--#Include File="inc/Check_Sql.asp"--> <!--#include file="Inc/conn.asp"--> <!--#include file="Inc/config.asp" --> <!--#include file="inc/Function.asp"--> <!-- #include file="Head.asp" --> <% BigClass=request("BigClass") SmallClass=request("SmallClass") %><body topmargin="0"> <TABLE cellSpacing=0 cellPadding=0 width=1002 align=center border=0> <TBODY> <TR> <TD vAlign=top width=210><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0> <TBODY> <TR> <TD><IMG height=40 src="imgbly/lt9.gif" width=210></TD> </TR> <TR> <TD align=middle><TABLE style="BORDER-RIGHT: #e9e9e9 1px solid; BORDER-TOP: #e9e9e9 1px solid; BORDER-LEFT: #e9e9e9 1px solid; BORDER-BOTTOM: #e9e9e9 1px solid" cellSpacing=0 cellPadding=0 width=178 border=0> <TBODY> <TR> <TD height=15> </TD> </TR> <TR> <TD><TABLE cellSpacing=0 cellPadding=0 width=162 align=center border=0> <TBODY> <TR> <TD class=lNav1><a href="NewsClass.asp?BigClass=企业新闻">企业新闻</a></TD> </TR> <TR> <TD height="5"></TD> </TR> <TR> <TD class=lNav1><a href="NewsClass.asp?BigClass=业内资讯">业内资讯</a></TD> </TR> <TR> <TD height="5"></TD> </TR> <TR> <TD class=lNav1><a href="NewsClass.asp?BigClass=技术文档">技术文档</a></TD> </TR> <TR> <TD height="5"></TD> </TR> <TR> <TD class=lNav1><a href="NewsClass.asp?BigClass=视频中心">视频中心</a></TD> </TR> </TBODY> </TABLE></TD> </TR> <TR> <TD height=15> </TD> </TR> </TBODY> </TABLE></TD> </TR> </TBODY> </TABLE> <!-- #include file="leftps.asp" --></TD> <TD style="BACKGROUND: url(imgbly/bg_body.gif) repeat-y 50% top" vAlign=top><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0> <TBODY> <TR> <TD><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0> <TBODY> <TR> <TD background=imgbly/bg_rt.gif><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0> <TBODY> <TR> <TD><IMG src="imgbly/rt12.gif" width="209" height=41></TD> <TD> </TD> <TD class=loc style="BACKGROUND: url(img/bg_rtjiao.gif) no-repeat right 50%; COLOR: #9f9f9f" align=right>你现在的位置:<A href="index.asp">首页</A> > <a href="NewsClass.asp?BigClass=<%=BigClass%>"><%=BigClass%></a> </TD> </TR> </TBODY> </TABLE></TD> <TD width=17> </TD> </TR> </TBODY> </TABLE></TD> </TR> </TBODY> </TABLE> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0> <TBODY> <TR> <TD width=17 height=26> </TD> <TD> </TD> <TD width=17> </TD> </TR> <TR> <TD> </TD> <TD align="center" style="LINE-HEIGHT: 24px"><table width="100%" border="0" cellpadding="0" cellspacing="0"> <% page=clng(request("page")) Set rs=Server.CreateObject("ADODB.RecordSet") if BigClass<>"" and SmallClass <>"" then sql="select * from news where BigClassName='"&BigClass&"' and SmallClassName='"&SmallClass&"' order by AddDate desc" rs.Open sql,conn,1,1 elseif BigClass<>"" then sql="select * from news where BigClassName='"&BigClass&"' order by AddDate desc" rs.Open sql,conn,1,1 end if if rs.eof and rs.bof then response.Write("暂时没有记录") else %> <% rs.PageSize=20 if page=0 then page=1 pages=rs.pagecount if page > pages then page=pages rs.AbsolutePage=page for j=1 to rs.PageSize %> <tr> <td width="6%" height="30" align="center" style="BORDER-bottom: #E7E7E7 1px dashed"><img src="Img/arrow_6.gif" width="11" height="11"></td> <td width="65%" height="24" style="BORDER-bottom: #E7E7E7 1px dashed"><% if rs("FirstImageName")<>"" then response.write "<img src='images/news.gif' border=0 alt='图片新闻'>" end if %> <a href="VideoNews.asp?id=<%= RS("id") %>" target="_blank"><%= RS("TITLE") %></a> </td> <td width="29%" style="BORDER-bottom: #E7E7E7 1px dashed"><font color="#999999">[<%=FormatDateTime(RS("AddDate"),2)%>] (点击<font color="#ff0000"><%= RS("hits") %></font>) </font></td> </tr> <% rs.movenext if rs.eof then exit for next %> <tr valign="bottom"> <td height="50" colspan="3" align="center" ><form method=Post action="NewsClass.asp?BigClass=<%=BigClass%>&SmallClass=<%=SmallClass%>"> <%if Page<2 then response.write "首页 上一页 " else response.write "<a href=NewsClass.asp?BigClass="&BigClass&"&SmallClass="&SmallClass&"&page=1>首页</a> " response.write "<a href=NewsClass.asp?BigClass="&BigClass&"&SmallClass="&SmallClass&"&page=" & Page-1 & ">上一页</a> " end if if rs.pagecount-page<1 then response.write "下一页 尾页" else response.write "<a href=NewsClass.asp?BigClass="&BigClass&"&SmallClass="&SmallClass&"&page=" & (page+1) & ">" response.write "下一页</a> <a href=NewsClass.asp?BigClass="&BigClass&"&SmallClass="&SmallClass&"&SmallClass="&SmallClass&"&page="&rs.pagecount&">尾页</a>" end if response.write " 页次:<strong><font color=red>"&Page&"</font>/"&rs.pagecount&"</strong>页 " response.write " 共<b><font color='#FF0000'>"&rs.recordcount&"</font></b>条记录 <b>"&rs.pagesize&"</b>条记录/页" response.write " 转到:<input type='text' name='page' size=4 maxlength=10 class=input value="&page&">" response.write " <input class=input type='submit' value=' Goto ' name='cndok'></span></p>" %> </form></td> </tr> <% end if rs.close set rs=nothing %> </table></TD> <TD> </TD> </TR> <TR> <TD height=10> </TD> <TD> </TD> <TD> </TD> </TR> </TBODY> </TABLE></TD> </TR> </TBODY> </TABLE> <!--#include file="Inc/foot.asp"--> </body>